0 PRINTCHR$(142):POKE53280,0:POKE53281,0:PRINT"[147][153] [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":PRINT"[206][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][206][180]":PRINT"[165] [152][213][192][192][192][192][192][192][192][192][192][192][201] [153][167][166][180]":PRINT"[165][152] [194] [156][195][178][178][195]     [152][194] [153][170][166][180]":PRINT"[180] [152][194]  [156][194][194]      [152][194] [153][167][166][180]":PRINT"[180] [152][194]  [156][194][194]      [152][194] [153][167][166][180]    [159]BY[153]":PRINT"[180] [152][194] [158]SOFTWARE [152][194] [153][167][166][180]    JIM TUVERSON[153]
8 [153]"SGN PRINT#PEEK  CLRPEEKPEEK      PRINT#PEEK PRINTTHENSPC(SGN    DEFWEST HILLS, CA.PRINT":[153]"SGN PRINT#PEEK CLRMID$(null)PEEK OPEN'88 PRINT#PEEK PRINTTHENSPC(SGN":[153]"SGN PRINT#MID$LENLENLENLENLENLENLENLENLENLEN(null) PRINT+SPC(SGN      (null)LENLENLENLENLENLENLENRIGHT$PRINT":[153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQRSPC(SGN      PEEKCENTRALPEEKPRINT":[153]"FN  .   .   .   PRINTTHENSPC(SGN      PEEK CONT(null)(null)(null)(null)(null) PEEKPRINT":[153]"FN  (null)   (null)   (null)  :PRINTTHENSPC(SGN      PEEKCONT (null)(null)(null)(null)(null) PEEKPRINT
14 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][206]       [194][150] [215][215][215][215][215] [194][153]":PRINT"                        [194][150] [215][215][215][215][215] [194][153]":PRINT"                        [194] [155][209][209][209][209][209] [194][153]":PRINT"                        [194]CONTROL[194][153]
18 [153]"CLR     MENU/      WAIT        MID$LENLENLENLENLENLENLEN(null)":[153]"SYS    UTILITY     WAIT":A$[178]"ANOTHER GREATTUVERSONPRINTPROGRAM                      *":[141]22
22 [153]"";:[129]G[178]23[164]23:[153]"";:[130]:X[178]1
23 G$[178][202](A$,X,1):[139]G$[179][177]"*"[167][153][163]38);G$;"ON":X[178]X[170]1:[129]C[178]1[164]88:[130]
24 [139]G$[179][177]"*"[167][153]""[199](20)"ON":[137]23
25 [137]26
26 [153]"     <TO CONTINUE PRESS ANY KEY>":[151]198,0:[146]198,1:[161]A$:[139]A$[178]"*"[167]18
30 [153]"LOADOPEN";"        MENU/UTILITIES PROGRAM         WAITSYS":[134]NA$(50):[153]"        ...GETTING DIRECTORY...":[153]"DEF    ORIGINAL PROGRAM: DEAN WILKINSON":[153]"     MODIFIED BY: JIM TUVERSON, JR.":[151]53280,0:[151]53281,0:[159]2,8,15:[137]61
37 [159]1,8,0,"$0":N[178]1:X[178]0:[158]65508:[161]#1,A$,B$
40 [161]#1,A$,B$:R[178]0:[161]#1,A$,B$:C[178]0:[158]65508:[139]A$[179][177]""[167]C[178][198](A$)
45 [139]B$[179][177]""[167]C[178]C[170][198](B$)[172]256
46 [139][202]([196](C),2)[178]"0"[167]R[178]1:[137]55
47 X[178]X[170]1:X1%[178]X[173]2:[158]65508
49 [161]#1,B$:[139]ST[179][177]0[167]59
50 [139]B$[179][177][199](34)[167]49
51 [161]#1,B$:[139]B$[179][177][199](34)[167]NA$(X)[178]NA$(X)[170]B$:[158]65508:[137]51
52 [158]65508
53 [161]#1,B$:[139]B$[178][199](32)[167]53
54 C$[178]"
55 C$=C$+B$:GET#1,B$:IFB$<>""THEN55
56 IFR=1THEN40
57 SYS65508:IFST=0THEN40
59 CLOSE1:GOTO61
61 IFN=0THEN37
62 GOSUB125
63 PRINT"";:PRINT"      L[146]-LOAD PROGRAM":PRINT"      C[146]-COPY PROGRAM":PRINT"      R[146]-RENAME PROGRAM":PRINT"      D[146]-DELETE PROGRAM":PRINT"      I[146]-INITIATE DISK FORMAT":PRINT"      V[146]-VALIDATE DISK":PRINT"      Q[146]-QUIT
71 [161]A$:[139]A$[178]""[167]71
72 [139]A$[178]"L"[167]82
73 [139]A$[178]"C"[167]90
74 [139]A$[178]"R"[167]98
75 [139]A$[178]"D"[167]105
76 [139]A$[178]"I"[167]115
77 [139]A$[178]"V"[167]120
78 [139]A$[178]"INPUT"[175]X[171]1[177]24[167]136
79 [139]A$[178]"DIM"[167][141]125:[137]63
80 [139]A$[178]"Q"[167][153]"ON      Q-QUITWAIT":[153]"LOAD":[128]
81 [137]71
82 [153]"ONONONONONONON      L-LOAD PROGRAMWAIT":[153]:[153]"CHOICE?WAIT";
84 [133]CH$:[139]CH$[178]""[167]84
85 CH[178][197](CH$):[139]CH[179]1[176]CH[177]X[171]1[167]84
86 [153]CH:[153]:[153]"LOAD";[199](34);NA$(CH);[199](34);",8,1":[153]"ONONONON":[151]631,13:[151]632,[198]("R"):[151]633,[198]("U"):[151]634,[198]("N"):[151]635,13:[151]198,5:[128]
90 [153]"ONONONONONON      C-COPY PROGRAMWAIT":[153]:[153]"CHOICE?WAIT";
92 [133]CH$:[139]CH$[178]""[167]92
93 CH[178][197](CH$):[139]CH[179]1[176]CH[177]X[171]1[167]92
94 [153]:[133]"NEW NAME";NM$:[139]NM$[178]""[167]94
96 [159]15,8,15:CC$[178]"CO:"[170]NM$[170]"=:"[170]NA$(CH):[152]15,CC$:[160]15:[138]
98 [153]"ONONONONON      R-RENAME PROGRAMWAIT":[153]:[153]"CHOICE?WAIT";
100 [133]CH$:[139]CH$[178]""[167]100
101 CH[178][197](CH$):[139]CH[179]1[176]CH[177]X[171]1[167]100
102 [153]CH:[153]:[153]"NEW NAME FOR";" ";NA$(CH);:[133]NN$:[139]NN$[178]""[167]102
103 [159]15,8,15:CC$[178]"RO:"[170]NN$[170]"="[170]NA$(CH):[152]15,CC$:[160]15:[138]
105 [153]"ONONONON      D-DELETE PROGRAMWAIT":[153]:[153]"CHOICE?WAIT";
107 [133]CH$:[139]CH$[178]""[167]107
108 CH[178][197](CH$):[139]CH[179]1[176]CH[177]X[171]1[167]107
109 [153]CH:[153]:[153]"ARE YOU SURE?
110 GETSU$:IFSU$=""THEN110
111 IFSU$<>"Y"THENGOTO61
112 PRINT"OK[146]":OPEN15,8,15:CC$="SO:"+NA$(CH):PRINT#15,CC$:CLOSE15:RUN
115 PRINT"[145][145][145]      I-INITIATE DISK CONTACT[146]":PRINT:PRINT"OK[146]":OPEN15,8,15,"I":CLOSE15:RUN
120 PRINT"[145][145]      V-VALIDATE DISK[146]":PRINT:PRINT"OK[146]":OPEN15,8,15,"V":CLOSE15:RUN
125 PRINT"[147][129]";"        MENU/UTILITIES PROGRAM          [146][158]":K=0:X1=X-1:IFX1<24THENFORI=1TOINT(X/2)
128 IFX1>=24THENFORI=1TO12
129 K=K+1:PRINTK;NA$(K);:POKE211,20:K=K+1:IFNA$(K)<>""THENPRINTK;NA$(K)
132 NEXT:IFNA$(K)=""THENPRINT
134 IFX1>24THENPRINT"[159]         [F 1] FOR NEXT PAGE
135 [142]
136 K[178]24:X1[178]X[171]1:[153]"LOADFOR";"        MENU/UTILITIES PROGRAM          WAITSYS":[139]X1[179]48[167][129]I[178]1[164][181]((X[171]24)[173]2)
139 [139]X1[177][178]48[167][129]I[178]1[164]10
140 K[178]K[170]1:[153]K;NA$(K);:[151]211,20:K[178]K[170]1:[139]NA$(K)[179][177]""[167][153]K;NA$(K)
143 [130]:[139]NA$(K)[178]""[167][153]
145 [139]X1[177]48[167][153]"TOO MANY FILES.  MAX IS 48.":[144]
146 [153]"OPEN          [F 3] FOR FIRST PAGE":[137]63